home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H107.ZIP / PCX2DXF2.ZIP / REMAPCOL.LSP < prev   
Lisp/Scheme  |  1991-05-27  |  950b  |  37 lines
  1. ;REMAPCOL.LSP
  2. ;Version 2.0 27th May 1991
  3. ;Copyright (c) 1991 Cybernetic Imagination Systems Ltd
  4. ;All Rights Reserved
  5.  
  6. ;Routine to globally remap any AutoCAD colour to any other AutoCAD colour
  7.  
  8. (defun C:REMAPCOL
  9.         (/
  10.         oldcol  ;old colour number
  11.         newcol  ;new colour number
  12.         ss1     ;selection set
  13.         cmdtmp  ;value of cmdecho on entry
  14.         )
  15.  
  16.         ;get user input
  17.         (setq oldcol (getint "\nOld colour number: "))
  18.         (setq newcol (getint "\nNew colour number: "))
  19.  
  20.         ;disable command echo
  21.         (setq cmdtmp (getvar "CMDECHO"))
  22.         (setvar "CMDECHO" 0)
  23.  
  24.         ;find entities and change
  25.         (setq ss1 (ssget "X" (list (cons 62 oldcol))))
  26.         (if (/= ss1 nil)
  27.                 (command "CHPROP" ss1 "" "C" newcol "")
  28.         )
  29.  
  30.         ;reset command echo to value on entry
  31.         (setvar "CMDECHO" cmdtmp)
  32.  
  33.         ;clean exit
  34.         (princ)
  35.  
  36. )
  37.